/ BBS in a Box 12
/ BBS in a box XII-1.iso / Files / Publish / A / Alpha.5.76.sit / Alpha.5.76 folder / Tcl / SystemCode / tcl.tcl ![]() | < prev | next > |
MacBinary | 1994-03-08 | 1.4 KB | [TEXT/ALFA] |
Confidence | Program | Detection | Match Type | Support |
---|---|---|---|---|
10% | dexvert | MacBinary (archive/macBinary) | fallback | Supported |
1% | dexvert | Text File (text/txt) | fallback | Supported |
100% | file | MacBinary II, inited, Tue Mar 8 16:46:20 1994, modified Tue Mar 8 16:46:20 1994, creator Alpha editor, type ASCII, 844 bytes "tcl.tcl" , at 0x3cc 382 bytes resource | default (weak) | |
99% | file | data | default | |
74% | TrID | Macintosh plain text (MacBinary) | default | |
25% | TrID | MacBinary 2 | default (weak) | |
100% | siegfried | fmt/1762 MacBinary (II) | default | |
100% | lsar | MacBinary | default |
id metadata | |
---|---|
key | value |
macFileType | [TEXT] |
macFileCreator | [ALFA] |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 74 63 6c 2e 74 63 | 6c 00 00 00 00 00 00 00 |..tcl.tc|l.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 03 4c 00 | 00 01 7e a9 a2 a2 ac a9 |......L.|..~.....|
|00000060| a2 a2 ac 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 92 85 00 00 |........|........|
|00000080| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 23 20 44 |========|====.# D|
|000000d0| 65 62 75 67 20 61 20 54 | 63 6c 20 70 72 6f 63 65 |ebug a T|cl proce|
|000000e0| 64 75 72 65 2e 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |dure..#=|========|
|000000f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000130| 3d 3d 0d 0d 23 20 41 6c | 70 68 61 20 54 43 4c 20 |==..# Al|pha TCL |
|00000140| 70 72 6f 67 72 61 6d 6d | 69 6e 67 20 6d 6f 64 65 |programm|ing mode|
|00000150| 0d 70 72 6f 63 20 74 72 | 61 63 65 54 63 6c 50 72 |.proc tr|aceTclPr|
|00000160| 6f 63 20 7b 7d 20 7b 0d | 09 69 66 20 7b 5b 6c 6c |oc {} {.|.if {[ll|
|00000170| 65 6e 67 74 68 20 5b 74 | 72 61 63 65 46 75 6e 63 |ength [t|raceFunc|
|00000180| 20 73 74 61 74 75 73 5d | 5d 3e 32 7d 20 7b 0d 09 | status]|]>2} {..|
|00000190| 09 74 72 61 63 65 46 75 | 6e 63 20 6f 66 66 0d 09 |.traceFu|nc off..|
|000001a0| 09 6d 61 72 6b 4d 65 6e | 75 49 74 65 6d 20 54 63 |.markMen|uItem Tc|
|000001b0| 6c 20 74 72 61 63 65 54 | 63 6c 50 72 6f 63 20 6f |l traceT|clProc o|
|000001c0| 66 66 0d 09 09 64 75 6d | 70 54 72 61 63 65 73 0d |ff...dum|pTraces.|
|000001d0| 09 09 72 65 74 75 72 6e | 0d 09 7d 0d 09 73 65 74 |..return|..}..set|
|000001e0| 20 66 75 6e 63 20 5b 6c | 69 73 74 70 69 63 6b 20 | func [l|istpick |
|000001f0| 2d 70 20 7b 46 75 6e 63 | 20 4e 61 6d 65 3a 7d 20 |-p {Func| Name:} |
|00000200| 5b 6c 73 6f 72 74 20 5b | 69 6e 66 6f 20 70 72 6f |[lsort [|info pro|
|00000210| 63 73 5d 5d 5d 0d 09 69 | 66 20 7b 21 5b 73 74 72 |cs]]]..i|f {![str|
|00000220| 69 6e 67 20 6c 65 6e 67 | 74 68 20 24 66 75 6e 63 |ing leng|th $func|
|00000230| 5d 7d 20 72 65 74 75 72 | 6e 0d 09 74 72 61 63 65 |]} retur|n..trace|
|00000240| 46 75 6e 63 20 6f 6e 20 | 24 66 75 6e 63 20 22 22 |Func on |$func ""|
|00000250| 0d 09 63 61 74 63 68 20 | 7b 6d 61 72 6b 4d 65 6e |..catch |{markMen|
|00000260| 75 49 74 65 6d 20 54 63 | 6c 20 74 72 61 63 65 54 |uItem Tc|l traceT|
|00000270| 63 6c 50 72 6f 63 20 6f | 6e 7d 0d 7d 0d 0d 70 72 |clProc o|n}.}..pr|
|00000280| 6f 63 20 73 65 74 54 63 | 6c 4d 6f 64 65 20 7b 7d |oc setTc|lMode {}|
|00000290| 20 7b 0d 09 63 68 61 6e | 67 65 4d 6f 64 65 20 22 | {..chan|geMode "|
|000002a0| 54 63 6c 22 0d 09 75 70 | 6c 65 76 65 6c 20 23 30 |Tcl"..up|level #0|
|000002b0| 20 7b 0d 09 09 73 65 74 | 20 65 6c 65 63 4c 42 72 | {...set| elecLBr|
|000002c0| 61 63 65 20 30 0d 09 09 | 73 65 74 20 65 6c 65 63 |ace 0...|set elec|
|000002d0| 52 42 72 61 63 65 20 30 | 0d 09 09 73 65 74 20 65 |RBrace 0|...set e|
|000002e0| 6c 65 63 74 72 69 63 53 | 65 6d 69 20 30 0d 09 09 |lectricS|emi 0...|
|000002f0| 73 65 74 20 77 6f 72 64 | 57 72 61 70 20 30 0d 09 |set word|Wrap 0..|
|00000300| 09 73 65 74 20 66 75 6e | 63 45 78 70 72 20 7b 5e |.set fun|cExpr {^|
|00000310| 70 72 6f 63 20 2a 28 5b | 2b 2d 61 2d 7a 41 2d 5a |proc *([|+-a-zA-Z|
|00000320| 30 2d 39 5d 2b 29 7d 0d | 09 09 73 65 74 20 77 6f |0-9]+)}.|..set wo|
|00000330| 72 64 42 72 65 61 6b 50 | 72 65 66 61 63 65 20 7b |rdBreakP|reface {|
|00000340| 5b 5e 61 2d 7a 41 2d 5a | 30 2d 39 5f 5c 24 5d 7d |[^a-zA-Z|0-9_\$]}|
|00000350| 0d 09 09 73 65 74 20 77 | 6f 72 64 42 72 65 61 6b |...set w|ordBreak|
|00000360| 20 7b 28 5c 24 29 3f 5b | 61 2d 7a 41 2d 5a 30 2d | {(\$)?[|a-zA-Z0-|
|00000370| 39 5f 5d 2b 7d 0d 09 09 | 73 65 74 20 66 75 6e 63 |9_]+}...|set func|
|00000380| 50 61 72 20 31 0d 09 09 | 73 65 74 20 73 6f 72 74 |Par 1...|set sort|
|00000390| 65 64 49 73 44 65 66 61 | 75 6c 74 20 31 0d 09 09 |edIsDefa|ult 1...|
|000003a0| 73 65 74 20 70 72 65 66 | 69 78 53 74 72 69 6e 67 |set pref|ixString|
|000003b0| 20 22 23 20 22 0d 09 7d | 0d 09 69 6e 73 65 72 74 | "# "..}|..insert|
|000003c0| 4d 65 6e 75 20 54 63 6c | 0d 7d 0d 0d 00 00 00 00 |Menu Tcl|.}......|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000410| 74 65 49 74 65 6d 4e 75 | 6d 0d 09 73 65 74 20 74 |teItemNu|m..set t|
|00000420| 65 78 74 20 5b 67 65 74 | 53 65 6c 65 63 74 5d 0d |ext [get|Select].|
|00000430| 07 74 63 6c 2e 74 63 6c | 02 00 00 00 50 61 72 74 |.tcl.tcl|....Part|
|00000440| 53 49 54 21 00 00 00 00 | 00 00 00 00 00 00 08 49 |SIT!....|.......I|
|00000450| 00 00 50 61 72 74 53 49 | 54 21 00 00 00 00 00 00 |..PartSI|T!......|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 a9 b0 91 a7 00 00 | 00 00 00 00 01 7e 74 68 |........|.....~th|
|00000480| 65 6e 20 7b 0d 09 09 62 | 65 65 70 0d 09 7d 20 65 |en {...b|eep..} e|
|00000490| 6c 73 65 20 7b 0d 09 09 | 64 65 6c 65 74 65 54 65 |lse {...|deleteTe|
|000004a0| 78 74 20 5b 67 65 74 50 | 6f 73 5d 20 5b 73 65 6c |xt [getP|os] [sel|
|000004b0| 45 6e 64 5d 0d 09 09 73 | 65 74 20 63 6c 69 70 42 |End]...s|et clipB|
|000004c0| 6f 61 72 64 73 28 24 6e | 61 6d 65 29 20 24 74 65 |oards($n|ame) $te|
|000004d0| 78 74 0d 09 09 65 6e 61 | 62 6c 65 4d 65 6e 75 49 |xt...ena|bleMenuI|
|000004e0| 74 65 6d 20 4d 69 73 63 | 20 22 70 61 73 74 65 4e |tem Misc| "pasteN|
|000004f0| 61 6d 65 64 43 6c 69 70 | 62 6f 61 72 64 22 20 6f |amedClip|board" o|
|00000500| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 39 |...H..Mo|naco...9|
|00000510| a4 c8 00 2e 9e f2 00 00 | 00 6b 00 2b a2 16 00 2f |........|.k.+.../|
|00000520| bd 40 00 35 76 be 00 04 | 00 04 00 28 00 03 01 dd |.@.5v...|...(....|
|00000530| 02 01 00 28 00 03 01 dd | 02 01 00 0b d1 17 00 00 |...(....|........|
|00000540| 01 fd 00 00 01 fd 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000550| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 2a b6 34 |...L...L|...2.*.4|
|00000560| 0d 98 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00000570| 00 0a 03 ed ff ff 00 00 | 00 00 00 32 01 08 00 00 |........|...2....|
+--------+-------------------------+-------------------------+--------+--------+